MacTech 1 to 12/MacTech-vol-1-12.toast/Source/MacTech® Magazine/Volume 07 - 1991/07.02 Feb 91/4D Graphics Source/DrawLine.p

Text File | 1989-04-20 | 253 b | 17 lines | [TEXT/MPS ]

Unit DrawLine;

INTERFACE
    USES
        Memtypes,Quickdraw,OSIntf,Toolintf,packintf;

    Procedure DrawALine(var h1,v1,h2,v2: Integer);

IMPLEMENTATION
    Procedure DrawALine(var h1,v1,h2,v2: Integer);

    begin
        MoveTo(h1,v1);
        LineTo(h2,v2);
    end;
END.